SCREEN 1,640,200,4,2
WINDOW 1," Quizmaster  V2.0                                                       Loader",,0,1
PALETTE 0,0,0,0:FOR i=1 TO 0 STEP-0.005:PALETTE 1,i,i,i:NEXT i
PALETTE 15,0.3,0,0:PALETTE 14,0.6,0,0:PALETTE 13,1,0,0
PALETTE 12,0,0.3,0:PALETTE 11,0,0.6,0:PALETTE 10,0,1,0
PALETTE 9,0,0,0.4:PALETTE 8,0,0,0.6:PALETTE 7,0,0,1
PALETTE 6,0.3,0.3,0:PALETTE 5,0.6,0.6,0:PALETTE 4,1,1,0
PALETTE 2,0,0,0:PALETTE 3,1,1,0.5

LINE (0,1)-(640,5),15,b:LINE (0,2)-(640,4),14,b:LINE (0,3)-(640,3),13
LINE (0,7)-(640,11),12,b:LINE (0,8)-(640,10),11,b:LINE (0,9)-(640,9),10
LINE (0,11)-(640,15),9,b:LINE (0,12)-(640,14),8,b:LINE (0,13)-(640,13),7

LOCATE 4,28:COLOR 2
PRINT "Quizmaster Version 2.0":PRINT:PRINT
PRINT "        Geschrieben von F. Zöllner für den Kickstart Public Domain-Pool"
PRINT 
PRINT "                          Viel Spaß beim Spielen !¡!"

LINE (0,81)-(640,85),9,b:LINE (0,82)-(640,84),8,b:LINE (0,83)-(640,83),7
LINE (0,87)-(640,91),12,b:LINE (0,88)-(640,90),11,b:LINE (0,89)-(640,89),10
LINE (0,91)-(640,95),15,b:LINE (0,92)-(640,94),14,b:LINE (0,93)-(640,93),13

FOR i=1 TO 1000:NEXT i
FOR i=0 TO 1 STEP+0.007:PALETTE 2,i,i,i:NEXT i
FOR i=1 TO 3000:NEXT i

PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
COLOR 3:PRINT "                 Bitte warten Sie - Das Programm wird geladen..."
LINE (0,120)-(640,124),6,b:LINE (0,121)-(640,123),5,b
LINE (0,122)-(640,122),4
LINE (0,138)-(640,142),6,b:LINE (0,139)-(640,141),5,b
LINE (0,140)-(640,140),4
FOR i=1 TO 1500
a$=INKEY$:IF a$<>"" THEN Loop
NEXT i
Loop:
LOAD ":Main",r